/ Revista CD Expert 32 / CD Expert nº 32.iso / Unreal T / utdemo338.exe / System / UBrowser.u / UBrowserServerList_UBrowserIRCSystemPage_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 74 9a 01 63 6c 61 73 73 |........|t..class|
|00000010| 20 55 42 72 6f 77 73 65 | 72 49 52 43 53 79 73 74 | UBrowse|rIRCSyst|
|00000020| 65 6d 50 61 67 65 20 65 | 78 70 61 6e 64 73 20 55 |emPage e|xpands U|
|00000030| 42 72 6f 77 73 65 72 49 | 52 43 50 61 67 65 42 61 |BrowserI|RCPageBa|
|00000040| 73 65 3b 0d 0a 0d 0a 76 | 61 72 20 55 42 72 6f 77 |se;....v|ar UBrow|
|00000050| 73 65 72 49 52 43 4c 69 | 6e 6b 20 4c 69 6e 6b 3b |serIRCLi|nk Link;|
|00000060| 0d 0a 76 61 72 20 55 57 | 69 6e 64 6f 77 50 61 67 |..var UW|indowPag|
|00000070| 65 43 6f 6e 74 72 6f 6c | 20 50 61 67 65 50 61 72 |eControl| PagePar|
|00000080| 65 6e 74 3b 0d 0a 0d 0a | 76 61 72 20 73 74 72 69 |ent;....|var stri|
|00000090| 6e 67 09 53 65 72 76 65 | 72 3b 0d 0a 76 61 72 20 |ng.Serve|r;..var |
|000000a0| 73 74 72 69 6e 67 20 44 | 65 66 61 75 6c 74 43 68 |string D|efaultCh|
|000000b0| 61 6e 6e 65 6c 3b 0d 0a | 0d 0a 76 61 72 20 63 6f |annel;..|..var co|
|000000c0| 6e 66 69 67 20 73 74 72 | 69 6e 67 09 4e 69 63 6b |nfig str|ing.Nick|
|000000d0| 4e 61 6d 65 3b 0d 0a 76 | 61 72 20 63 6f 6e 66 69 |Name;..v|ar confi|
|000000e0| 67 20 73 74 72 69 6e 67 | 09 46 75 6c 6c 4e 61 6d |g string|.FullNam|
|000000f0| 65 3b 0d 0a 76 61 72 20 | 63 6f 6e 66 69 67 20 73 |e;..var |config s|
|00000100| 74 72 69 6e 67 09 4f 6c | 64 50 6c 61 79 65 72 4e |tring.Ol|dPlayerN|
|00000110| 61 6d 65 3b 0d 0a 76 61 | 72 20 63 6f 6e 66 69 67 |ame;..va|r config|
|00000120| 20 73 74 72 69 6e 67 09 | 55 73 65 72 49 64 65 6e | string.|UserIden|
|00000130| 74 3b 0d 0a 0d 0a 76 61 | 72 20 55 57 69 6e 64 6f |t;....va|r UWindo|
|00000140| 77 56 53 70 6c 69 74 74 | 65 72 20 53 70 6c 69 74 |wVSplitt|er Split|
|00000150| 74 65 72 3b 0d 0a 76 61 | 72 20 55 42 72 6f 77 73 |ter;..va|r UBrows|
|00000160| 65 72 49 52 43 53 65 74 | 75 70 43 6c 69 65 6e 74 |erIRCSet|upClient|
|00000170| 20 53 65 74 75 70 43 6c | 69 65 6e 74 3b 0d 0a 0d | SetupCl|ient;...|
|00000180| 0a 76 61 72 20 62 6f 6f | 6c 20 62 43 6f 6e 6e 65 |.var boo|l bConne|
|00000190| 63 74 65 64 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 20 |cted;..v|ar bool |
|000001a0| 62 41 77 61 79 3b 0d 0a | 0d 0a 76 61 72 20 6c 6f |bAway;..|..var lo|
|000001b0| 63 61 6c 69 7a 65 64 20 | 73 74 72 69 6e 67 20 4e |calized |string N|
|000001c0| 6f 74 49 6e 41 43 68 61 | 6e 6e 65 6c 54 65 78 74 |otInACha|nnelText|
|000001d0| 3b 0d 0a 76 61 72 20 6c | 6f 63 61 6c 69 7a 65 64 |;..var l|ocalized|
|000001e0| 20 73 74 72 69 6e 67 20 | 4b 69 63 6b 65 64 46 72 | string |KickedFr|
|000001f0| 6f 6d 54 65 78 74 3b 0d | 0a 76 61 72 20 6c 6f 63 |omText;.|.var loc|
|00000200| 61 6c 69 7a 65 64 20 73 | 74 72 69 6e 67 20 42 79 |alized s|tring By|
|00000210| 54 65 78 74 3b 0d 0a 76 | 61 72 20 6c 6f 63 61 6c |Text;..v|ar local|
|00000220| 69 7a 65 64 20 73 74 72 | 69 6e 67 20 49 73 41 77 |ized str|ing IsAw|
|00000230| 61 79 54 65 78 74 3b 0d | 0a 0d 0a 66 75 6e 63 74 |ayText;.|...funct|
|00000240| 69 6f 6e 20 43 72 65 61 | 74 65 64 28 29 0d 0a 7b |ion Crea|ted()..{|
|00000250| 0d 0a 09 53 75 70 65 72 | 2e 43 72 65 61 74 65 64 |...Super|.Created|
|00000260| 28 29 3b 0d 0a 0d 0a 09 | 53 70 6c 69 74 74 65 72 |();.....|Splitter|
|00000270| 20 3d 20 55 57 69 6e 64 | 6f 77 56 53 70 6c 69 74 | = UWind|owVSplit|
|00000280| 74 65 72 28 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |ter(Crea|teWindow|
|00000290| 28 63 6c 61 73 73 27 55 | 57 69 6e 64 6f 77 56 53 |(class'U|WindowVS|
|000002a0| 70 6c 69 74 74 65 72 27 | 2c 20 30 2c 20 30 2c 20 |plitter'|, 0, 0, |
|000002b0| 57 69 6e 57 69 64 74 68 | 2c 20 57 69 6e 48 65 69 |WinWidth|, WinHei|
|000002c0| 67 68 74 29 29 3b 0d 0a | 09 53 65 74 75 70 43 6c |ght));..|.SetupCl|
|000002d0| 69 65 6e 74 20 3d 20 55 | 42 72 6f 77 73 65 72 49 |ient = U|BrowserI|
|000002e0| 52 43 53 65 74 75 70 43 | 6c 69 65 6e 74 28 53 70 |RCSetupC|lient(Sp|
|000002f0| 6c 69 74 74 65 72 2e 43 | 72 65 61 74 65 57 69 6e |litter.C|reateWin|
|00000300| 64 6f 77 28 63 6c 61 73 | 73 27 55 42 72 6f 77 73 |dow(clas|s'UBrows|
|00000310| 65 72 49 52 43 53 65 74 | 75 70 43 6c 69 65 6e 74 |erIRCSet|upClient|
|00000320| 27 2c 20 30 2c 20 30 2c | 20 57 69 6e 57 69 64 74 |', 0, 0,| WinWidt|
|00000330| 68 2c 20 57 69 6e 48 65 | 69 67 68 74 2c 20 53 65 |h, WinHe|ight, Se|
|00000340| 6c 66 29 29 3b 0d 0a 0d | 0a 09 54 65 78 74 41 72 |lf));...|..TextAr|
|00000350| 65 61 2e 53 65 74 50 61 | 72 65 6e 74 28 53 70 6c |ea.SetPa|rent(Spl|
|00000360| 69 74 74 65 72 29 3b 0d | 0a 09 53 70 6c 69 74 74 |itter);.|..Splitt|
|00000370| 65 72 2e 54 6f 70 43 6c | 69 65 6e 74 57 69 6e 64 |er.TopCl|ientWind|
|00000380| 6f 77 20 3d 20 53 65 74 | 75 70 43 6c 69 65 6e 74 |ow = Set|upClient|
|00000390| 3b 0d 0a 09 53 70 6c 69 | 74 74 65 72 2e 42 6f 74 |;...Spli|tter.Bot|
|000003a0| 74 6f 6d 43 6c 69 65 6e | 74 57 69 6e 64 6f 77 20 |tomClien|tWindow |
|000003b0| 3d 20 54 65 78 74 41 72 | 65 61 3b 0d 0a 09 53 70 |= TextAr|ea;...Sp|
|000003c0| 6c 69 74 74 65 72 2e 53 | 70 6c 69 74 50 6f 73 20 |litter.S|plitPos |
|000003d0| 3d 20 34 35 3b 0d 0a 09 | 53 70 6c 69 74 74 65 72 |= 45;...|Splitter|
|000003e0| 2e 4d 61 78 53 70 6c 69 | 74 50 6f 73 20 3d 20 34 |.MaxSpli|tPos = 4|
|000003f0| 35 3b 0d 0a 09 53 70 6c | 69 74 74 65 72 2e 4d 69 |5;...Spl|itter.Mi|
|00000400| 6e 57 69 6e 48 65 69 67 | 68 74 20 3d 20 30 3b 0d |nWinHeig|ht = 0;.|
|00000410| 0a 09 53 70 6c 69 74 74 | 65 72 2e 62 53 69 7a 61 |..Splitt|er.bSiza|
|00000420| 62 6c 65 20 3d 20 54 72 | 75 65 3b 0d 0a 09 53 70 |ble = Tr|ue;...Sp|
|00000430| 6c 69 74 74 65 72 2e 62 | 42 6f 74 74 6f 6d 47 72 |litter.b|BottomGr|
|00000440| 6f 77 20 3d 20 54 72 75 | 65 3b 0d 0a 0d 0a 09 53 |ow = Tru|e;.....S|
|00000450| 65 74 75 70 28 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |etup();.|.}....fu|
|00000460| 6e 63 74 69 6f 6e 20 42 | 65 66 6f 72 65 50 61 69 |nction B|eforePai|
|00000470| 6e 74 28 43 61 6e 76 61 | 73 20 43 2c 20 66 6c 6f |nt(Canva|s C, flo|
|00000480| 61 74 20 58 2c 20 66 6c | 6f 61 74 20 59 29 0d 0a |at X, fl|oat Y)..|
|00000490| 7b 0d 0a 09 53 75 70 65 | 72 2e 42 65 66 6f 72 65 |{...Supe|r.Before|
|000004a0| 50 61 69 6e 74 28 43 2c | 20 58 2c 20 59 29 3b 0d |Paint(C,| X, Y);.|
|000004b0| 0a 0d 0a 09 53 70 6c 69 | 74 74 65 72 2e 53 65 74 |....Spli|tter.Set|
|000004c0| 53 69 7a 65 28 57 69 6e | 57 69 64 74 68 2c 20 57 |Size(Win|Width, W|
|000004d0| 69 6e 48 65 69 67 68 74 | 20 2d 20 45 64 69 74 43 |inHeight| - EditC|
|000004e0| 6f 6e 74 72 6f 6c 2e 57 | 69 6e 48 65 69 67 68 74 |ontrol.W|inHeight|
|000004f0| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00000500| 6e 20 50 72 6f 63 65 73 | 73 49 6e 70 75 74 28 73 |n Proces|sInput(s|
|00000510| 74 72 69 6e 67 20 54 65 | 78 74 29 0d 0a 7b 0d 0a |tring Te|xt)..{..|
|00000520| 09 69 66 28 4c 65 66 74 | 28 54 65 78 74 2c 20 31 |.if(Left|(Text, 1|
|00000530| 29 20 21 3d 20 22 2f 22 | 29 0d 0a 09 09 53 79 73 |) != "/"|)....Sys|
|00000540| 74 65 6d 54 65 78 74 28 | 22 2a 2a 2a 20 22 24 4e |temText(|"*** "$N|
|00000550| 6f 74 49 6e 41 43 68 61 | 6e 6e 65 6c 54 65 78 74 |otInACha|nnelText|
|00000560| 29 3b 0d 0a 09 65 6c 73 | 65 0d 0a 09 09 4c 69 6e |);...els|e....Lin|
|00000570| 6b 2e 53 65 6e 64 43 6f | 6d 6d 61 6e 64 54 65 78 |k.SendCo|mmandTex|
|00000580| 74 28 4d 69 64 28 54 65 | 78 74 2c 20 31 29 29 3b |t(Mid(Te|xt, 1));|
|00000590| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|000005a0| 55 42 72 6f 77 73 65 72 | 49 52 43 43 68 61 6e 6e |UBrowser|IRCChann|
|000005b0| 65 6c 50 61 67 65 20 46 | 69 6e 64 43 68 61 6e 6e |elPage F|indChann|
|000005c0| 65 6c 57 69 6e 64 6f 77 | 28 73 74 72 69 6e 67 20 |elWindow|(string |
|000005d0| 43 68 61 6e 6e 65 6c 29 | 0d 0a 7b 0d 0a 09 6c 6f |Channel)|..{...lo|
|000005e0| 63 61 6c 20 55 57 69 6e | 64 6f 77 50 61 67 65 43 |cal UWin|dowPageC|
|000005f0| 6f 6e 74 72 6f 6c 50 61 | 67 65 20 50 3b 0d 0a 09 |ontrolPa|ge P;...|
|00000600| 6c 6f 63 61 6c 20 55 42 | 72 6f 77 73 65 72 49 52 |local UB|rowserIR|
|00000610| 43 43 68 61 6e 6e 65 6c | 50 61 67 65 20 43 68 61 |CChannel|Page Cha|
|00000620| 6e 3b 0d 0a 0d 0a 09 66 | 6f 72 28 50 20 3d 20 50 |n;.....f|or(P = P|
|00000630| 61 67 65 50 61 72 65 6e | 74 2e 46 69 72 73 74 50 |ageParen|t.FirstP|
|00000640| 61 67 65 28 29 3b 20 50 | 20 21 3d 20 4e 6f 6e 65 |age(); P| != None|
|00000650| 3b 20 50 20 3d 20 50 2e | 4e 65 78 74 50 61 67 65 |; P = P.|NextPage|
|00000660| 28 29 29 0d 0a 09 7b 0d | 0a 09 09 43 68 61 6e 20 |())...{.|...Chan |
|00000670| 3d 20 55 42 72 6f 77 73 | 65 72 49 52 43 43 68 61 |= UBrows|erIRCCha|
|00000680| 6e 6e 65 6c 50 61 67 65 | 28 50 2e 50 61 67 65 29 |nnelPage|(P.Page)|
|00000690| 3b 0d 0a 09 09 69 66 28 | 43 68 61 6e 20 21 3d 20 |;....if(|Chan != |
|000006a0| 4e 6f 6e 65 20 26 26 20 | 28 43 68 61 6e 2e 43 68 |None && |(Chan.Ch|
|000006b0| 61 6e 6e 65 6c 4e 61 6d | 65 20 7e 3d 20 43 68 61 |annelNam|e ~= Cha|
|000006c0| 6e 6e 65 6c 29 29 0d 0a | 09 09 09 72 65 74 75 72 |nnel))..|...retur|
|000006d0| 6e 20 43 68 61 6e 3b 0d | 0a 09 7d 0d 0a 0d 0a 09 |n Chan;.|..}.....|
|000006e0| 72 65 74 75 72 6e 20 4e | 6f 6e 65 3b 0d 0a 7d 0d |return N|one;..}.|
|000006f0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 55 42 72 6f |...funct|ion UBro|
|00000700| 77 73 65 72 49 52 43 50 | 72 69 76 50 61 67 65 20 |wserIRCP|rivPage |
|00000710| 46 69 6e 64 50 72 69 76 | 61 74 65 57 69 6e 64 6f |FindPriv|ateWindo|
|00000720| 77 28 73 74 72 69 6e 67 | 20 4e 69 63 6b 29 0d 0a |w(string| Nick)..|
|00000730| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 55 57 69 6e 64 6f |{...loca|l UWindo|
|00000740| 77 50 61 67 65 43 6f 6e | 74 72 6f 6c 50 61 67 65 |wPageCon|trolPage|
|00000750| 20 50 3b 0d 0a 09 6c 6f | 63 61 6c 20 55 42 72 6f | P;...lo|cal UBro|
|00000760| 77 73 65 72 49 52 43 50 | 72 69 76 50 61 67 65 20 |wserIRCP|rivPage |
|00000770| 50 72 69 76 3b 0d 0a 0d | 0a 09 66 6f 72 28 50 20 |Priv;...|..for(P |
|00000780| 3d 20 50 61 67 65 50 61 | 72 65 6e 74 2e 46 69 72 |= PagePa|rent.Fir|
|00000790| 73 74 50 61 67 65 28 29 | 3b 20 50 20 21 3d 20 4e |stPage()|; P != N|
|000007a0| 6f 6e 65 3b 20 50 20 3d | 20 50 2e 4e 65 78 74 50 |one; P =| P.NextP|
|000007b0| 61 67 65 28 29 29 0d 0a | 09 7b 0d 0a 09 09 50 72 |age())..|.{....Pr|
|000007c0| 69 76 20 3d 20 55 42 72 | 6f 77 73 65 72 49 52 43 |iv = UBr|owserIRC|
|000007d0| 50 72 69 76 50 61 67 65 | 28 50 2e 50 61 67 65 29 |PrivPage|(P.Page)|
|000007e0| 3b 0d 0a 09 09 69 66 28 | 50 72 69 76 20 21 3d 20 |;....if(|Priv != |
|000007f0| 4e 6f 6e 65 20 26 26 20 | 28 50 72 69 76 2e 50 72 |None && |(Priv.Pr|
|00000800| 69 76 4e 69 63 6b 20 7e | 3d 20 4e 69 63 6b 29 29 |ivNick ~|= Nick))|
|00000810| 0d 0a 09 09 09 72 65 74 | 75 72 6e 20 50 72 69 76 |.....ret|urn Priv|
|00000820| 3b 0d 0a 09 7d 0d 0a 0d | 0a 09 72 65 74 75 72 6e |;...}...|..return|
|00000830| 20 43 72 65 61 74 65 50 | 72 69 76 43 68 61 6e 6e | CreateP|rivChann|
|00000840| 65 6c 28 4e 69 63 6b 29 | 3b 0d 0a 7d 0d 0a 0d 0a |el(Nick)|;..}....|
|00000850| 66 75 6e 63 74 69 6f 6e | 20 43 6f 6e 6e 65 63 74 |function| Connect|
|00000860| 28 29 0d 0a 7b 0d 0a 09 | 6c 6f 63 61 6c 20 69 6e |()..{...|local in|
|00000870| 74 20 69 3b 0d 0a 09 69 | 66 28 4c 69 6e 6b 20 21 |t i;...i|f(Link !|
|00000880| 3d 20 4e 6f 6e 65 29 0d | 0a 09 09 44 69 73 63 6f |= None).|...Disco|
|00000890| 6e 6e 65 63 74 28 29 3b | 0d 0a 0d 0a 09 69 66 28 |nnect();|.....if(|
|000008a0| 47 65 74 50 6c 61 79 65 | 72 4f 77 6e 65 72 28 29 |GetPlaye|rOwner()|
|000008b0| 2e 50 6c 61 79 65 72 52 | 65 70 6c 69 63 61 74 69 |.PlayerR|eplicati|
|000008c0| 6f 6e 49 6e 66 6f 2e 50 | 6c 61 79 65 72 4e 61 6d |onInfo.P|layerNam|
|000008d0| 65 20 21 3d 20 4f 6c 64 | 50 6c 61 79 65 72 4e 61 |e != Old|PlayerNa|
|000008e0| 6d 65 29 0d 0a 09 7b 0d | 0a 09 09 4e 69 63 6b 4e |me)...{.|...NickN|
|000008f0| 61 6d 65 20 3d 20 47 65 | 74 50 6c 61 79 65 72 4f |ame = Ge|tPlayerO|
|00000900| 77 6e 65 72 28 29 2e 50 | 6c 61 79 65 72 52 65 70 |wner().P|layerRep|
|00000910| 6c 69 63 61 74 69 6f 6e | 49 6e 66 6f 2e 50 6c 61 |lication|Info.Pla|
|00000920| 79 65 72 4e 61 6d 65 3b | 0d 0a 09 09 4f 6c 64 50 |yerName;|....OldP|
|00000930| 6c 61 79 65 72 4e 61 6d | 65 20 3d 20 4e 69 63 6b |layerNam|e = Nick|
|00000940| 4e 61 6d 65 3b 0d 0a 09 | 09 69 66 28 46 75 6c 6c |Name;...|.if(Full|
|00000950| 4e 61 6d 65 20 3d 3d 20 | 22 22 29 0d 0a 09 09 09 |Name == |"").....|
|00000960| 46 75 6c 6c 4e 61 6d 65 | 20 3d 20 4e 69 63 6b 4e |FullName| = NickN|
|00000970| 61 6d 65 3b 0d 0a 09 09 | 53 61 76 65 43 6f 6e 66 |ame;....|SaveConf|
|00000980| 69 67 28 29 3b 0d 0a 09 | 7d 0d 0a 0d 0a 09 69 66 |ig();...|}.....if|
|00000990| 28 55 73 65 72 49 64 65 | 6e 74 20 3d 3d 20 22 22 |(UserIde|nt == ""|
|000009a0| 29 0d 0a 09 7b 0d 0a 09 | 09 55 73 65 72 49 64 65 |)...{...|.UserIde|
|000009b0| 6e 74 20 3d 20 22 75 22 | 3b 0d 0a 09 09 66 6f 72 |nt = "u"|;....for|
|000009c0| 28 69 3d 30 3b 69 3c 37 | 3b 69 2b 2b 29 0d 0a 09 |(i=0;i<7|;i++)...|
|000009d0| 09 09 55 73 65 72 49 64 | 65 6e 74 20 3d 20 55 73 |..UserId|ent = Us|
|000009e0| 65 72 49 64 65 6e 74 20 | 24 20 43 68 72 28 28 52 |erIdent |$ Chr((R|
|000009f0| 61 6e 64 28 31 30 29 2b | 34 38 29 29 3b 0d 0a 0d |and(10)+|48));...|
|00000a00| 0a 09 09 4c 6f 67 28 22 | 43 72 65 61 74 65 64 20 |...Log("|Created |
|00000a10| 6e 65 77 20 55 73 65 72 | 49 64 65 6e 74 3a 20 22 |new User|Ident: "|
|00000a20| 24 55 73 65 72 49 64 65 | 6e 74 29 3b 0d 0a 09 09 |$UserIde|nt);....|
|00000a30| 53 61 76 65 43 6f 6e 66 | 69 67 28 29 3b 0d 0a 09 |SaveConf|ig();...|
|00000a40| 7d 0d 0a 0d 0a 09 4c 69 | 6e 6b 20 3d 20 47 65 74 |}.....Li|nk = Get|
|00000a50| 50 6c 61 79 65 72 4f 77 | 6e 65 72 28 29 2e 47 65 |PlayerOw|ner().Ge|
|00000a60| 74 45 6e 74 72 79 4c 65 | 76 65 6c 28 29 2e 53 70 |tEntryLe|vel().Sp|
|00000a70| 61 77 6e 28 63 6c 61 73 | 73 27 55 42 72 6f 77 73 |awn(clas|s'UBrows|
|00000a80| 65 72 49 52 43 4c 69 6e | 6b 27 29 3b 0d 0a 09 4c |erIRCLin|k');...L|
|00000a90| 69 6e 6b 2e 43 6f 6e 6e | 65 63 74 28 53 65 6c 66 |ink.Conn|ect(Self|
|00000aa0| 2c 20 53 65 72 76 65 72 | 2c 20 4e 69 63 6b 4e 61 |, Server|, NickNa|
|00000ab0| 6d 65 2c 20 55 73 65 72 | 49 64 65 6e 74 2c 20 46 |me, User|Ident, F|
|00000ac0| 75 6c 6c 4e 61 6d 65 2c | 20 44 65 66 61 75 6c 74 |ullName,| Default|
|00000ad0| 43 68 61 6e 6e 65 6c 29 | 3b 0d 0a 09 62 43 6f 6e |Channel)|;...bCon|
|00000ae0| 6e 65 63 74 65 64 20 3d | 20 54 72 75 65 3b 0d 0a |nected =| True;..|
|00000af0| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 4a 6f |}....fun|ction Jo|
|00000b00| 69 6e 43 68 61 6e 6e 65 | 6c 28 73 74 72 69 6e 67 |inChanne|l(string|
|00000b10| 20 43 68 61 6e 6e 65 6c | 4e 61 6d 65 29 0d 0a 7b | Channel|Name)..{|
|00000b20| 0d 0a 09 6c 6f 63 61 6c | 20 55 42 72 6f 77 73 65 |...local| UBrowse|
|00000b30| 72 49 52 43 43 68 61 6e | 6e 65 6c 50 61 67 65 20 |rIRCChan|nelPage |
|00000b40| 50 3b 0d 0a 0d 0a 09 50 | 20 3d 20 46 69 6e 64 43 |P;.....P| = FindC|
|00000b50| 68 61 6e 6e 65 6c 57 69 | 6e 64 6f 77 28 43 68 61 |hannelWi|ndow(Cha|
|00000b60| 6e 6e 65 6c 4e 61 6d 65 | 29 3b 0d 0a 09 69 66 28 |nnelName|);...if(|
|00000b70| 50 20 3d 3d 20 4e 6f 6e | 65 29 0d 0a 09 09 4c 69 |P == Non|e)....Li|
|00000b80| 6e 6b 2e 4a 6f 69 6e 43 | 68 61 6e 6e 65 6c 28 43 |nk.JoinC|hannel(C|
|00000b90| 68 61 6e 6e 65 6c 4e 61 | 6d 65 29 3b 0d 0a 09 65 |hannelNa|me);...e|
|00000ba0| 6c 73 65 0d 0a 09 09 50 | 61 67 65 50 61 72 65 6e |lse....P|ageParen|
|00000bb0| 74 2e 47 6f 74 6f 54 61 | 62 28 50 2e 4f 77 6e 65 |t.GotoTa|b(P.Owne|
|00000bc0| 72 54 61 62 2c 20 54 72 | 75 65 29 3b 0d 0a 7d 0d |rTab, Tr|ue);..}.|
|00000bd0| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 50 61 72 74 |...funct|ion Part|
|00000be0| 43 68 61 6e 6e 65 6c 28 | 73 74 72 69 6e 67 20 43 |Channel(|string C|
|00000bf0| 68 61 6e 6e 65 6c 4e 61 | 6d 65 29 0d 0a 7b 0d 0a |hannelNa|me)..{..|
|00000c00| 09 6c 6f 63 61 6c 20 55 | 42 72 6f 77 73 65 72 49 |.local U|BrowserI|
|00000c10| 52 43 43 68 61 6e 6e 65 | 6c 50 61 67 65 20 50 3b |RCChanne|lPage P;|
|00000c20| 0d 0a 0d 0a 09 50 20 3d | 20 46 69 6e 64 43 68 61 |.....P =| FindCha|
|00000c30| 6e 6e 65 6c 57 69 6e 64 | 6f 77 28 43 68 61 6e 6e |nnelWind|ow(Chann|
|00000c40| 65 6c 4e 61 6d 65 29 3b | 0d 0a 09 69 66 28 50 20 |elName);|...if(P |
|00000c50| 21 3d 20 4e 6f 6e 65 29 | 0d 0a 09 09 4c 69 6e 6b |!= None)|....Link|
|00000c60| 2e 50 61 72 74 43 68 61 | 6e 6e 65 6c 28 43 68 61 |.PartCha|nnel(Cha|
|00000c70| 6e 6e 65 6c 4e 61 6d 65 | 29 3b 0d 0a 7d 0d 0a 0d |nnelName|);..}...|
|00000c80| 0a 66 75 6e 63 74 69 6f | 6e 20 44 69 73 63 6f 6e |.functio|n Discon|
|00000c90| 6e 65 63 74 28 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |nect()..|{...loca|
|00000ca0| 6c 20 55 57 69 6e 64 6f | 77 50 61 67 65 43 6f 6e |l UWindo|wPageCon|
|00000cb0| 74 72 6f 6c 50 61 67 65 | 20 50 2c 20 4e 65 78 74 |trolPage| P, Next|
|00000cc0| 3b 0d 0a 0d 0a 09 69 66 | 28 4c 69 6e 6b 20 21 3d |;.....if|(Link !=|
|00000cd0| 20 4e 6f 6e 65 29 0d 0a | 09 7b 0d 0a 09 09 2f 2f | None)..|.{....//|
|00000ce0| 20 64 6f 6e 27 74 20 6c | 6f 63 61 6c 69 7a 65 20 | don't l|ocalize |
|00000cf0| 2d 20 73 65 6e 74 20 74 | 6f 20 6f 74 68 65 72 20 |- sent t|o other |
|00000d00| 63 6c 69 65 6e 74 73 0d | 0a 09 09 4c 69 6e 6b 2e |clients.|...Link.|
|00000d10| 44 69 73 63 6f 6e 6e 65 | 63 74 52 65 61 73 6f 6e |Disconne|ctReason|
|00000d20| 20 3d 20 22 44 69 73 63 | 6f 6e 6e 65 63 74 65 64 | = "Disc|onnected|
|00000d30| 22 3b 0d 0a 09 09 4c 69 | 6e 6b 2e 44 65 73 74 72 |";....Li|nk.Destr|
|00000d40| 6f 79 4c 69 6e 6b 28 29 | 3b 0d 0a 09 7d 0d 0a 09 |oyLink()|;...}...|
|00000d50| 4c 69 6e 6b 20 3d 20 4e | 6f 6e 65 3b 0d 0a 09 0d |Link = N|one;....|
|00000d60| 0a 09 50 20 3d 20 50 61 | 67 65 50 61 72 65 6e 74 |..P = Pa|geParent|
|00000d70| 2e 46 69 72 73 74 50 61 | 67 65 28 29 3b 0d 0a 09 |.FirstPa|ge();...|
|00000d80| 77 68 69 6c 65 28 20 50 | 20 21 3d 20 4e 6f 6e 65 |while( P| != None|
|00000d90| 20 29 0d 0a 09 7b 0d 0a | 09 09 4e 65 78 74 20 3d | )...{..|..Next =|
|00000da0| 20 50 2e 4e 65 78 74 50 | 61 67 65 28 29 3b 0d 0a | P.NextP|age();..|
|00000db0| 0d 0a 09 09 69 66 28 50 | 2e 50 61 67 65 20 21 3d |....if(P|.Page !=|
|00000dc0| 20 53 65 6c 66 29 0d 0a | 09 09 09 50 61 67 65 50 | Self)..|...PageP|
|00000dd0| 61 72 65 6e 74 2e 44 65 | 6c 65 74 65 50 61 67 65 |arent.De|letePage|
|00000de0| 28 50 29 3b 0d 0a 0d 0a | 09 09 50 20 3d 20 4e 65 |(P);....|..P = Ne|
|00000df0| 78 74 3b 0d 0a 09 7d 0d | 0a 0d 0a 09 53 79 73 74 |xt;...}.|....Syst|
|00000e00| 65 6d 54 65 78 74 28 20 | 22 53 65 72 76 65 72 20 |emText( |"Server |
|00000e10| 64 69 73 63 6f 6e 6e 65 | 63 74 65 64 22 20 29 3b |disconne|cted" );|
|00000e20| 0d 0a 09 62 43 6f 6e 6e | 65 63 74 65 64 20 3d 20 |...bConn|ected = |
|00000e30| 46 61 6c 73 65 3b 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |False;..|}....fun|
|00000e40| 63 74 69 6f 6e 20 4e 6f | 74 69 66 79 51 75 69 74 |ction No|tifyQuit|
|00000e50| 55 6e 72 65 61 6c 28 29 | 0d 0a 7b 0d 0a 09 53 75 |Unreal()|..{...Su|
|00000e60| 70 65 72 2e 4e 6f 74 69 | 66 79 51 75 69 74 55 6e |per.Noti|fyQuitUn|
|00000e70| 72 65 61 6c 28 29 3b 0d | 0a 0d 0a 09 69 66 28 4c |real();.|....if(L|
|00000e80| 69 6e 6b 20 21 3d 20 4e | 6f 6e 65 29 0d 0a 09 7b |ink != N|one)...{|
|00000e90| 0d 0a 09 09 2f 2f 20 64 | 6f 6e 27 74 20 6c 6f 63 |....// d|on't loc|
|00000ea0| 61 6c 69 7a 65 20 2d 20 | 73 65 6e 74 20 74 6f 20 |alize - |sent to |
|00000eb0| 6f 74 68 65 72 20 63 6c | 69 65 6e 74 73 0d 0a 09 |other cl|ients...|
|00000ec0| 09 4c 69 6e 6b 2e 44 69 | 73 63 6f 6e 6e 65 63 74 |.Link.Di|sconnect|
|00000ed0| 52 65 61 73 6f 6e 20 3d | 20 22 45 78 69 74 20 47 |Reason =| "Exit G|
|00000ee0| 61 6d 65 22 3b 0d 0a 09 | 09 4c 69 6e 6b 2e 44 65 |ame";...|.Link.De|
|00000ef0| 73 74 72 6f 79 4c 69 6e | 6b 28 29 3b 0d 0a 09 7d |stroyLin|k();...}|
|00000f00| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000f10| 53 79 73 74 65 6d 54 65 | 78 74 28 73 74 72 69 6e |SystemTe|xt(strin|
|00000f20| 67 20 54 65 78 74 29 0d | 0a 7b 0d 0a 09 2f 2f 20 |g Text).|.{...// |
|00000f30| 46 49 58 4d 45 21 21 20 | 73 68 6f 75 6c 64 20 64 |FIXME!! |should d|
|00000f40| 6f 20 73 6f 6d 65 74 68 | 69 6e 67 20 62 65 74 74 |o someth|ing bett|
|00000f50| 65 72 20 77 69 74 68 20 | 74 68 69 73 0d 0a 0d 0a |er with |this....|
|00000f60| 09 69 66 28 54 65 78 74 | 20 21 3d 20 22 59 6f 75 |.if(Text| != "You|
|00000f70| 20 68 61 76 65 20 62 65 | 65 6e 20 6d 61 72 6b 65 | have be|en marke|
|00000f80| 64 20 61 73 20 62 65 69 | 6e 67 20 61 77 61 79 22 |d as bei|ng away"|
|00000f90| 20 26 26 0d 0a 20 20 20 | 20 20 20 20 54 65 78 74 | &&..   |    Text|
|00000fa0| 20 21 3d 20 22 59 6f 75 | 20 61 72 65 20 6e 6f 20 | != "You| are no |
|00000fb0| 6c 6f 6e 67 65 72 20 6d | 61 72 6b 65 64 20 61 73 |longer m|arked as|
|00000fc0| 20 62 65 69 6e 67 20 61 | 77 61 79 22 29 0d 0a 09 | being a|way")...|
|00000fd0| 09 09 54 65 78 74 41 72 | 65 61 2e 41 64 64 54 65 |..TextAr|ea.AddTe|
|00000fe0| 78 74 28 54 65 78 74 29 | 3b 0d 0a 7d 0d 0a 0d 0a |xt(Text)|;..}....|
|00000ff0| 66 75 6e 63 74 69 6f 6e | 20 43 68 61 6e 6e 65 6c |function| Channel|
|00001000| 54 65 78 74 28 73 74 72 | 69 6e 67 20 43 68 61 6e |Text(str|ing Chan|
|00001010| 6e 65 6c 2c 20 73 74 72 | 69 6e 67 20 4e 69 63 6b |nel, str|ing Nick|
|00001020| 2c 20 73 74 72 69 6e 67 | 20 54 65 78 74 29 0d 0a |, string| Text)..|
|00001030| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 55 42 72 6f 77 73 |{...loca|l UBrows|
|00001040| 65 72 49 52 43 43 68 61 | 6e 6e 65 6c 50 61 67 65 |erIRCCha|nnelPage|
|00001050| 20 50 3b 0d 0a 0d 0a 09 | 50 20 3d 20 46 69 6e 64 | P;.....|P = Find|
|00001060| 43 68 61 6e 6e 65 6c 57 | 69 6e 64 6f 77 28 43 68 |ChannelW|indow(Ch|
|00001070| 61 6e 6e 65 6c 29 3b 0d | 0a 09 69 66 28 50 20 21 |annel);.|..if(P !|
|00001080| 3d 20 4e 6f 6e 65 29 0d | 0a 09 09 50 2e 43 68 61 |= None).|...P.Cha|
|00001090| 6e 6e 65 6c 54 65 78 74 | 28 4e 69 63 6b 2c 20 54 |nnelText|(Nick, T|
|000010a0| 65 78 74 29 3b 0d 0a 7d | 0d 0a 0d 0a 66 75 6e 63 |ext);..}|....func|
|000010b0| 74 69 6f 6e 20 50 72 69 | 76 61 74 65 54 65 78 74 |tion Pri|vateText|
|000010c0| 28 73 74 72 69 6e 67 20 | 4e 69 63 6b 2c 20 73 74 |(string |Nick, st|
|000010d0| 72 69 6e 67 20 54 65 78 | 74 29 0d 0a 7b 0d 0a 09 |ring Tex|t)..{...|
|000010e0| 46 69 6e 64 50 72 69 76 | 61 74 65 57 69 6e 64 6f |FindPriv|ateWindo|
|000010f0| 77 28 4e 69 63 6b 29 2e | 50 72 69 76 61 74 65 54 |w(Nick).|PrivateT|
|00001100| 65 78 74 28 4e 69 63 6b | 2c 20 54 65 78 74 29 3b |ext(Nick|, Text);|
|00001110| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00001120| 55 42 72 6f 77 73 65 72 | 49 52 43 50 72 69 76 50 |UBrowser|IRCPrivP|
|00001130| 61 67 65 20 43 72 65 61 | 74 65 50 72 69 76 43 68 |age Crea|tePrivCh|
|00001140| 61 6e 6e 65 6c 28 73 74 | 72 69 6e 67 20 4e 69 63 |annel(st|ring Nic|
|00001150| 6b 29 0d 0a 7b 0d 0a 09 | 6c 6f 63 61 6c 20 55 42 |k)..{...|local UB|
|00001160| 72 6f 77 73 65 72 49 52 | 43 50 72 69 76 50 61 67 |rowserIR|CPrivPag|
|00001170| 65 20 50 3b 0d 0a 0d 0a | 09 50 20 3d 20 55 42 72 |e P;....|.P = UBr|
|00001180| 6f 77 73 65 72 49 52 43 | 50 72 69 76 50 61 67 65 |owserIRC|PrivPage|
|00001190| 28 50 61 67 65 50 61 72 | 65 6e 74 2e 41 64 64 50 |(PagePar|ent.AddP|
|000011a0| 61 67 65 28 4e 69 63 6b | 2c 20 63 6c 61 73 73 27 |age(Nick|, class'|
|000011b0| 55 42 72 6f 77 73 65 72 | 49 52 43 50 72 69 76 50 |UBrowser|IRCPrivP|
|000011c0| 61 67 65 27 29 2e 50 61 | 67 65 29 3b 0d 0a 09 50 |age').Pa|ge);...P|
|000011d0| 2e 53 79 73 74 65 6d 50 | 61 67 65 20 3d 20 53 65 |.SystemP|age = Se|
|000011e0| 6c 66 3b 0d 0a 09 50 2e | 50 72 69 76 4e 69 63 6b |lf;...P.|PrivNick|
|000011f0| 20 3d 20 4e 69 63 6b 3b | 0d 0a 09 50 2e 53 65 74 | = Nick;|...P.Set|
|00001200| 75 70 28 29 3b 0d 0a 0d | 0a 09 72 65 74 75 72 6e |up();...|..return|
|00001210| 20 50 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 | P;..}..|..functi|
|00001220| 6f 6e 20 43 68 61 6e 6e | 65 6c 41 63 74 69 6f 6e |on Chann|elAction|
|00001230| 28 73 74 72 69 6e 67 20 | 43 68 61 6e 6e 65 6c 2c |(string |Channel,|
|00001240| 20 73 74 72 69 6e 67 20 | 4e 69 63 6b 2c 20 73 74 | string |Nick, st|
|00001250| 72 69 6e 67 20 54 65 78 | 74 29 0d 0a 7b 0d 0a 09 |ring Tex|t)..{...|
|00001260| 6c 6f 63 61 6c 20 55 42 | 72 6f 77 73 65 72 49 52 |local UB|rowserIR|
|00001270| 43 43 68 61 6e 6e 65 6c | 50 61 67 65 20 50 3b 0d |CChannel|Page P;.|
|00001280| 0a 0d 0a 09 50 20 3d 20 | 46 69 6e 64 43 68 61 6e |....P = |FindChan|
|00001290| 6e 65 6c 57 69 6e 64 6f | 77 28 43 68 61 6e 6e 65 |nelWindo|w(Channe|
|000012a0| 6c 29 3b 0d 0a 09 69 66 | 28 50 20 21 3d 20 4e 6f |l);...if|(P != No|
|000012b0| 6e 65 29 0d 0a 09 09 50 | 2e 43 68 61 6e 6e 65 6c |ne)....P|.Channel|
|000012c0| 41 63 74 69 6f 6e 28 4e | 69 63 6b 2c 20 54 65 78 |Action(N|ick, Tex|
|000012d0| 74 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |t);..}..|..functi|
|000012e0| 6f 6e 20 50 72 69 76 61 | 74 65 41 63 74 69 6f 6e |on Priva|teAction|
|000012f0| 28 73 74 72 69 6e 67 20 | 4e 69 63 6b 2c 20 73 74 |(string |Nick, st|
|00001300| 72 69 6e 67 20 54 65 78 | 74 29 0d 0a 7b 0d 0a 09 |ring Tex|t)..{...|
|00001310| 46 69 6e 64 50 72 69 76 | 61 74 65 57 69 6e 64 6f |FindPriv|ateWindo|
|00001320| 77 28 4e 69 63 6b 29 2e | 50 72 69 76 61 74 65 41 |w(Nick).|PrivateA|
|00001330| 63 74 69 6f 6e 28 4e 69 | 63 6b 2c 20 54 65 78 74 |ction(Ni|ck, Text|
|00001340| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00001350| 6e 20 4a 6f 69 6e 65 64 | 43 68 61 6e 6e 65 6c 28 |n Joined|Channel(|
|00001360| 73 74 72 69 6e 67 20 43 | 68 61 6e 6e 65 6c 2c 20 |string C|hannel, |
|00001370| 6f 70 74 69 6f 6e 61 6c | 20 73 74 72 69 6e 67 20 |optional| string |
|00001380| 4e 69 63 6b 29 0d 0a 7b | 0d 0a 09 6c 6f 63 61 6c |Nick)..{|...local|
|00001390| 20 55 42 72 6f 77 73 65 | 72 49 52 43 43 68 61 6e | UBrowse|rIRCChan|
|000013a0| 6e 65 6c 50 61 67 65 20 | 50 3b 0d 0a 09 6c 6f 63 |nelPage |P;...loc|
|000013b0| 61 6c 20 55 42 72 6f 77 | 73 65 72 49 52 43 43 68 |al UBrow|serIRCCh|
|000013c0| 61 6e 6e 65 6c 50 61 67 | 65 20 57 3b 0d 0a 09 6c |annelPag|e W;...l|
|000013d0| 6f 63 61 6c 20 55 57 69 | 6e 64 6f 77 50 61 67 65 |ocal UWi|ndowPage|
|000013e0| 43 6f 6e 74 72 6f 6c 50 | 61 67 65 20 4e 65 77 50 |ControlP|age NewP|
|000013f0| 61 67 65 3b 0d 0a 0d 0a | 09 69 66 28 4e 69 63 6b |age;....|.if(Nick|
|00001400| 20 3d 3d 20 22 22 29 0d | 0a 09 7b 0d 0a 09 09 4e | == "").|..{....N|
|00001410| 65 77 50 61 67 65 20 3d | 20 50 61 67 65 50 61 72 |ewPage =| PagePar|
|00001420| 65 6e 74 2e 41 64 64 50 | 61 67 65 28 43 68 61 6e |ent.AddP|age(Chan|
|00001430| 6e 65 6c 2c 20 63 6c 61 | 73 73 27 55 42 72 6f 77 |nel, cla|ss'UBrow|
|00001440| 73 65 72 49 52 43 43 68 | 61 6e 6e 65 6c 50 61 67 |serIRCCh|annelPag|
|00001450| 65 27 29 3b 0d 0a 09 09 | 50 20 3d 20 55 42 72 6f |e');....|P = UBro|
|00001460| 77 73 65 72 49 52 43 43 | 68 61 6e 6e 65 6c 50 61 |wserIRCC|hannelPa|
|00001470| 67 65 28 4e 65 77 50 61 | 67 65 2e 50 61 67 65 29 |ge(NewPa|ge.Page)|
|00001480| 3b 0d 0a 09 09 50 2e 53 | 79 73 74 65 6d 50 61 67 |;....P.S|ystemPag|
|00001490| 65 20 3d 20 53 65 6c 66 | 3b 0d 0a 09 09 50 2e 43 |e = Self|;....P.C|
|000014a0| 68 61 6e 6e 65 6c 4e 61 | 6d 65 20 3d 20 43 68 61 |hannelNa|me = Cha|
|000014b0| 6e 6e 65 6c 3b 0d 0a 09 | 09 50 2e 53 65 74 75 70 |nnel;...|.P.Setup|
|000014c0| 28 29 3b 0d 0a 09 09 50 | 61 67 65 50 61 72 65 6e |();....P|ageParen|
|000014d0| 74 2e 47 6f 74 6f 54 61 | 62 28 4e 65 77 50 61 67 |t.GotoTa|b(NewPag|
|000014e0| 65 2c 20 54 72 75 65 29 | 3b 0d 0a 09 7d 0d 0a 0d |e, True)|;...}...|
|000014f0| 0a 09 69 66 28 4e 69 63 | 6b 20 3d 3d 20 22 22 29 |..if(Nic|k == "")|
|00001500| 0d 0a 09 09 4e 69 63 6b | 20 3d 20 4e 69 63 6b 4e |....Nick| = NickN|
|00001510| 61 6d 65 3b 0d 0a 0d 0a | 09 57 20 3d 20 46 69 6e |ame;....|.W = Fin|
|00001520| 64 43 68 61 6e 6e 65 6c | 57 69 6e 64 6f 77 28 43 |dChannel|Window(C|
|00001530| 68 61 6e 6e 65 6c 29 3b | 0d 0a 09 69 66 28 57 20 |hannel);|...if(W |
|00001540| 21 3d 20 4e 6f 6e 65 29 | 0d 0a 09 09 57 2e 4a 6f |!= None)|....W.Jo|
|00001550| 69 6e 65 64 43 68 61 6e | 6e 65 6c 28 4e 69 63 6b |inedChan|nel(Nick|
|00001560| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00001570| 6e 20 4b 69 63 6b 55 73 | 65 72 28 73 74 72 69 6e |n KickUs|er(strin|
|00001580| 67 20 43 68 61 6e 6e 65 | 6c 2c 20 73 74 72 69 6e |g Channe|l, strin|
|00001590| 67 20 4b 69 63 6b 65 64 | 4e 69 63 6b 2c 20 73 74 |g Kicked|Nick, st|
|000015a0| 72 69 6e 67 20 4b 69 63 | 6b 65 72 2c 20 73 74 72 |ring Kic|ker, str|
|000015b0| 69 6e 67 20 52 65 61 73 | 6f 6e 29 0d 0a 7b 0d 0a |ing Reas|on)..{..|
|000015c0| 09 6c 6f 63 61 6c 20 55 | 57 69 6e 64 6f 77 50 61 |.local U|WindowPa|
|000015d0| 67 65 43 6f 6e 74 72 6f | 6c 50 61 67 65 20 50 3b |geContro|lPage P;|
|000015e0| 0d 0a 09 6c 6f 63 61 6c | 20 55 42 72 6f 77 73 65 |...local| UBrowse|
|000015f0| 72 49 52 43 43 68 61 6e | 6e 65 6c 50 61 67 65 20 |rIRCChan|nelPage |
|00001600| 57 3b 0d 0a 0d 0a 09 57 | 20 3d 20 46 69 6e 64 43 |W;.....W| = FindC|
|00001610| 68 61 6e 6e 65 6c 57 69 | 6e 64 6f 77 28 43 68 61 |hannelWi|ndow(Cha|
|00001620| 6e 6e 65 6c 29 3b 0d 0a | 0d 0a 09 69 66 28 4b 69 |nnel);..|...if(Ki|
|00001630| 63 6b 65 64 4e 69 63 6b | 20 3d 3d 20 4e 69 63 6b |ckedNick| == Nick|
|00001640| 4e 61 6d 65 29 0d 0a 09 | 7b 0d 0a 09 09 50 20 3d |Name)...|{....P =|
|00001650| 20 50 61 67 65 50 61 72 | 65 6e 74 2e 47 65 74 50 | PagePar|ent.GetP|
|00001660| 61 67 65 28 43 68 61 6e | 6e 65 6c 29 3b 0d 0a 09 |age(Chan|nel);...|
|00001670| 09 69 66 28 50 20 21 3d | 20 4e 6f 6e 65 29 0d 0a |.if(P !=| None)..|
|00001680| 09 09 09 50 61 67 65 50 | 61 72 65 6e 74 2e 44 65 |...PageP|arent.De|
|00001690| 6c 65 74 65 50 61 67 65 | 28 50 29 3b 0d 0a 09 09 |letePage|(P);....|
|000016a0| 53 79 73 74 65 6d 54 65 | 78 74 28 22 2a 2a 2a 20 |SystemTe|xt("*** |
|000016b0| 22 24 4b 69 63 6b 65 64 | 46 72 6f 6d 54 65 78 74 |"$Kicked|FromText|
|000016c0| 40 43 68 61 6e 6e 65 6c | 40 42 79 54 65 78 74 40 |@Channel|@ByText@|
|000016d0| 4b 69 63 6b 65 72 24 22 | 20 28 22 24 52 65 61 73 |Kicker$"| ("$Reas|
|000016e0| 6f 6e 24 22 29 22 29 3b | 0d 0a 09 7d 0d 0a 09 65 |on$")");|...}...e|
|000016f0| 6c 73 65 0d 0a 09 7b 0d | 0a 09 09 69 66 28 57 20 |lse...{.|...if(W |
|00001700| 21 3d 20 4e 6f 6e 65 29 | 0d 0a 09 09 09 57 2e 4b |!= None)|.....W.K|
|00001710| 69 63 6b 55 73 65 72 28 | 4b 69 63 6b 65 64 4e 69 |ickUser(|KickedNi|
|00001720| 63 6b 2c 20 4b 69 63 6b | 65 72 2c 20 52 65 61 73 |ck, Kick|er, Reas|
|00001730| 6f 6e 29 3b 0d 0a 09 7d | 0d 0a 7d 0d 0a 0d 0a 66 |on);...}|..}....f|
|00001740| 75 6e 63 74 69 6f 6e 20 | 55 73 65 72 49 6e 43 68 |unction |UserInCh|
|00001750| 61 6e 6e 65 6c 28 73 74 | 72 69 6e 67 20 43 68 61 |annel(st|ring Cha|
|00001760| 6e 6e 65 6c 2c 20 73 74 | 72 69 6e 67 20 4e 69 63 |nnel, st|ring Nic|
|00001770| 6b 29 0d 0a 7b 0d 0a 09 | 6c 6f 63 61 6c 20 55 42 |k)..{...|local UB|
|00001780| 72 6f 77 73 65 72 49 52 | 43 43 68 61 6e 6e 65 6c |rowserIR|CChannel|
|00001790| 50 61 67 65 20 57 3b 0d | 0a 09 57 20 3d 20 46 69 |Page W;.|..W = Fi|
|000017a0| 6e 64 43 68 61 6e 6e 65 | 6c 57 69 6e 64 6f 77 28 |ndChanne|lWindow(|
|000017b0| 43 68 61 6e 6e 65 6c 29 | 3b 0d 0a 09 69 66 28 57 |Channel)|;...if(W|
|000017c0| 20 21 3d 20 4e 6f 6e 65 | 29 0d 0a 09 09 57 2e 55 | != None|)....W.U|
|000017d0| 73 65 72 49 6e 43 68 61 | 6e 6e 65 6c 28 4e 69 63 |serInCha|nnel(Nic|
|000017e0| 6b 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |k);..}..|..functi|
|000017f0| 6f 6e 20 50 61 72 74 65 | 64 43 68 61 6e 6e 65 6c |on Parte|dChannel|
|00001800| 28 73 74 72 69 6e 67 20 | 43 68 61 6e 6e 65 6c 2c |(string |Channel,|
|00001810| 20 6f 70 74 69 6f 6e 61 | 6c 20 73 74 72 69 6e 67 | optiona|l string|
|00001820| 20 4e 69 63 6b 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 | Nick)..|{...loca|
|00001830| 6c 20 55 57 69 6e 64 6f | 77 50 61 67 65 43 6f 6e |l UWindo|wPageCon|
|00001840| 74 72 6f 6c 50 61 67 65 | 20 50 3b 0d 0a 09 6c 6f |trolPage| P;...lo|
|00001850| 63 61 6c 20 55 42 72 6f | 77 73 65 72 49 52 43 43 |cal UBro|wserIRCC|
|00001860| 68 61 6e 6e 65 6c 50 61 | 67 65 20 57 3b 0d 0a 0d |hannelPa|ge W;...|
|00001870| 0a 09 57 20 3d 20 46 69 | 6e 64 43 68 61 6e 6e 65 |..W = Fi|ndChanne|
|00001880| 6c 57 69 6e 64 6f 77 28 | 43 68 61 6e 6e 65 6c 29 |lWindow(|Channel)|
|00001890| 3b 0d 0a 0d 0a 09 69 66 | 28 4e 69 63 6b 20 3d 3d |;.....if|(Nick ==|
|000018a0| 20 22 22 29 0d 0a 09 7b | 0d 0a 09 09 50 20 3d 20 | "")...{|....P = |
|000018b0| 50 61 67 65 50 61 72 65 | 6e 74 2e 47 65 74 50 61 |PagePare|nt.GetPa|
|000018c0| 67 65 28 43 68 61 6e 6e | 65 6c 29 3b 0d 0a 09 09 |ge(Chann|el);....|
|000018d0| 69 66 28 50 20 21 3d 20 | 4e 6f 6e 65 29 0d 0a 09 |if(P != |None)...|
|000018e0| 09 09 50 61 67 65 50 61 | 72 65 6e 74 2e 44 65 6c |..PagePa|rent.Del|
|000018f0| 65 74 65 50 61 67 65 28 | 50 29 3b 0d 0a 09 7d 0d |etePage(|P);...}.|
|00001900| 0a 09 65 6c 73 65 0d 0a | 09 7b 0d 0a 09 09 69 66 |..else..|.{....if|
|00001910| 28 57 20 21 3d 20 4e 6f | 6e 65 29 0d 0a 09 09 09 |(W != No|ne).....|
|00001920| 57 2e 50 61 72 74 65 64 | 43 68 61 6e 6e 65 6c 28 |W.Parted|Channel(|
|00001930| 4e 69 63 6b 29 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d |Nick);..|.}..}...|
|00001940| 0a 66 75 6e 63 74 69 6f | 6e 20 43 68 61 6e 67 65 |.functio|n Change|
|00001950| 64 4e 69 63 6b 28 73 74 | 72 69 6e 67 20 4f 6c 64 |dNick(st|ring Old|
|00001960| 4e 69 63 6b 2c 20 73 74 | 72 69 6e 67 20 4e 65 77 |Nick, st|ring New|
|00001970| 4e 69 63 6b 29 0d 0a 7b | 0d 0a 09 6c 6f 63 61 6c |Nick)..{|...local|
|00001980| 20 55 57 69 6e 64 6f 77 | 50 61 67 65 43 6f 6e 74 | UWindow|PageCont|
|00001990| 72 6f 6c 50 61 67 65 20 | 50 3b 0d 0a 09 6c 6f 63 |rolPage |P;...loc|
|000019a0| 61 6c 20 55 42 72 6f 77 | 73 65 72 49 52 43 43 68 |al UBrow|serIRCCh|
|000019b0| 61 6e 6e 65 6c 50 61 67 | 65 20 43 68 61 6e 3b 0d |annelPag|e Chan;.|
|000019c0| 0a 09 6c 6f 63 61 6c 20 | 55 42 72 6f 77 73 65 72 |..local |UBrowser|
|000019d0| 49 52 43 50 72 69 76 50 | 61 67 65 20 50 72 69 76 |IRCPrivP|age Priv|
|000019e0| 3b 0d 0a 0d 0a 09 69 66 | 28 4f 6c 64 4e 69 63 6b |;.....if|(OldNick|
|000019f0| 20 3d 3d 20 4e 69 63 6b | 4e 61 6d 65 29 0d 0a 09 | == Nick|Name)...|
|00001a00| 7b 0d 0a 09 09 4e 69 63 | 6b 4e 61 6d 65 20 3d 20 |{....Nic|kName = |
|00001a10| 4e 65 77 4e 69 63 6b 3b | 0d 0a 09 09 4c 69 6e 6b |NewNick;|....Link|
|00001a20| 2e 4e 69 63 6b 4e 61 6d | 65 20 3d 20 4e 65 77 4e |.NickNam|e = NewN|
|00001a30| 69 63 6b 3b 0d 0a 09 09 | 53 61 76 65 43 6f 6e 66 |ick;....|SaveConf|
|00001a40| 69 67 28 29 3b 0d 0a 09 | 7d 0d 0a 09 0d 0a 09 66 |ig();...|}......f|
|00001a50| 6f 72 28 50 20 3d 20 50 | 61 67 65 50 61 72 65 6e |or(P = P|ageParen|
|00001a60| 74 2e 46 69 72 73 74 50 | 61 67 65 28 29 3b 20 50 |t.FirstP|age(); P|
|00001a70| 20 21 3d 20 4e 6f 6e 65 | 3b 20 50 20 3d 20 50 2e | != None|; P = P.|
|00001a80| 4e 65 78 74 50 61 67 65 | 28 29 29 0d 0a 09 7b 0d |NextPage|())...{.|
|00001a90| 0a 09 09 43 68 61 6e 20 | 3d 20 55 42 72 6f 77 73 |...Chan |= UBrows|
|00001aa0| 65 72 49 52 43 43 68 61 | 6e 6e 65 6c 50 61 67 65 |erIRCCha|nnelPage|
|00001ab0| 28 50 2e 50 61 67 65 29 | 3b 0d 0a 09 09 69 66 28 |(P.Page)|;....if(|
|00001ac0| 43 68 61 6e 20 21 3d 20 | 4e 6f 6e 65 20 26 26 20 |Chan != |None && |
|00001ad0| 43 68 61 6e 2e 55 73 65 | 72 4c 69 73 74 2e 46 69 |Chan.Use|rList.Fi|
|00001ae0| 6e 64 4e 69 63 6b 28 4f | 6c 64 4e 69 63 6b 29 20 |ndNick(O|ldNick) |
|00001af0| 21 3d 20 4e 6f 6e 65 29 | 0d 0a 09 09 09 43 68 61 |!= None)|.....Cha|
|00001b00| 6e 2e 43 68 61 6e 67 65 | 64 4e 69 63 6b 28 4f 6c |n.Change|dNick(Ol|
|00001b10| 64 4e 69 63 6b 2c 20 4e | 65 77 4e 69 63 6b 29 3b |dNick, N|ewNick);|
|00001b20| 0d 0a 0d 0a 09 09 50 72 | 69 76 20 3d 20 55 42 72 |......Pr|iv = UBr|
|00001b30| 6f 77 73 65 72 49 52 43 | 50 72 69 76 50 61 67 65 |owserIRC|PrivPage|
|00001b40| 28 50 2e 50 61 67 65 29 | 3b 0d 0a 09 09 69 66 28 |(P.Page)|;....if(|
|00001b50| 50 72 69 76 20 21 3d 20 | 4e 6f 6e 65 20 26 26 20 |Priv != |None && |
|00001b60| 50 72 69 76 2e 50 72 69 | 76 4e 69 63 6b 20 3d 3d |Priv.Pri|vNick ==|
|00001b70| 20 4f 6c 64 4e 69 63 6b | 29 0d 0a 09 09 7b 0d 0a | OldNick|)....{..|
|00001b80| 09 09 09 50 2e 43 61 70 | 74 69 6f 6e 20 3d 20 4e |...P.Cap|tion = N|
|00001b90| 65 77 4e 69 63 6b 3b 0d | 0a 09 09 09 50 72 69 76 |ewNick;.|....Priv|
|00001ba0| 2e 43 68 61 6e 67 65 64 | 4e 69 63 6b 28 4f 6c 64 |.Changed|Nick(Old|
|00001bb0| 4e 69 63 6b 2c 20 4e 65 | 77 4e 69 63 6b 29 3b 0d |Nick, Ne|wNick);.|
|00001bc0| 0a 09 09 7d 0d 0a 09 7d | 0d 0a 7d 0d 0a 0d 0a 66 |...}...}|..}....f|
|00001bd0| 75 6e 63 74 69 6f 6e 20 | 55 73 65 72 51 75 69 74 |unction |UserQuit|
|00001be0| 28 73 74 72 69 6e 67 20 | 4e 69 63 6b 2c 20 73 74 |(string |Nick, st|
|00001bf0| 72 69 6e 67 20 52 65 61 | 73 6f 6e 29 0d 0a 7b 0d |ring Rea|son)..{.|
|00001c00| 0a 09 6c 6f 63 61 6c 20 | 55 57 69 6e 64 6f 77 50 |..local |UWindowP|
|00001c10| 61 67 65 43 6f 6e 74 72 | 6f 6c 50 61 67 65 20 50 |ageContr|olPage P|
|00001c20| 3b 0d 0a 09 6c 6f 63 61 | 6c 20 55 42 72 6f 77 73 |;...loca|l UBrows|
|00001c30| 65 72 49 52 43 43 68 61 | 6e 6e 65 6c 50 61 67 65 |erIRCCha|nnelPage|
|00001c40| 20 43 68 61 6e 3b 0d 0a | 09 6c 6f 63 61 6c 20 55 | Chan;..|.local U|
|00001c50| 42 72 6f 77 73 65 72 49 | 52 43 50 72 69 76 50 61 |BrowserI|RCPrivPa|
|00001c60| 67 65 20 50 72 69 76 3b | 0d 0a 0d 0a 09 66 6f 72 |ge Priv;|.....for|
|00001c70| 28 50 20 3d 20 50 61 67 | 65 50 61 72 65 6e 74 2e |(P = Pag|eParent.|
|00001c80| 46 69 72 73 74 50 61 67 | 65 28 29 3b 20 50 20 21 |FirstPag|e(); P !|
|00001c90| 3d 20 4e 6f 6e 65 3b 20 | 50 20 3d 20 50 2e 4e 65 |= None; |P = P.Ne|
|00001ca0| 78 74 50 61 67 65 28 29 | 29 0d 0a 09 7b 0d 0a 09 |xtPage()|)...{...|
|00001cb0| 09 43 68 61 6e 20 3d 20 | 55 42 72 6f 77 73 65 72 |.Chan = |UBrowser|
|00001cc0| 49 52 43 43 68 61 6e 6e | 65 6c 50 61 67 65 28 50 |IRCChann|elPage(P|
|00001cd0| 2e 50 61 67 65 29 3b 0d | 0a 09 09 69 66 28 43 68 |.Page);.|...if(Ch|
|00001ce0| 61 6e 20 21 3d 20 4e 6f | 6e 65 20 26 26 20 43 68 |an != No|ne && Ch|
|00001cf0| 61 6e 2e 55 73 65 72 4c | 69 73 74 2e 46 69 6e 64 |an.UserL|ist.Find|
|00001d00| 4e 69 63 6b 28 4e 69 63 | 6b 29 20 21 3d 20 4e 6f |Nick(Nic|k) != No|
|00001d10| 6e 65 29 0d 0a 09 09 09 | 43 68 61 6e 2e 55 73 65 |ne).....|Chan.Use|
|00001d20| 72 51 75 69 74 28 4e 69 | 63 6b 2c 20 52 65 61 73 |rQuit(Ni|ck, Reas|
|00001d30| 6f 6e 29 3b 0d 0a 0d 0a | 09 09 50 72 69 76 20 3d |on);....|..Priv =|
|00001d40| 20 55 42 72 6f 77 73 65 | 72 49 52 43 50 72 69 76 | UBrowse|rIRCPriv|
|00001d50| 50 61 67 65 28 50 2e 50 | 61 67 65 29 3b 0d 0a 09 |Page(P.P|age);...|
|00001d60| 09 69 66 28 50 72 69 76 | 20 21 3d 20 4e 6f 6e 65 |.if(Priv| != None|
|00001d70| 20 26 26 20 50 72 69 76 | 2e 50 72 69 76 4e 69 63 | && Priv|.PrivNic|
|00001d80| 6b 20 3d 3d 20 4e 69 63 | 6b 29 0d 0a 09 09 09 50 |k == Nic|k).....P|
|00001d90| 72 69 76 2e 55 73 65 72 | 51 75 69 74 28 4e 69 63 |riv.User|Quit(Nic|
|00001da0| 6b 2c 20 52 65 61 73 6f | 6e 29 3b 0d 0a 09 7d 0d |k, Reaso|n);...}.|
|00001db0| 0a 7d 0d 0a 0d 0a 66 75 | 6e 63 74 69 6f 6e 20 55 |.}....fu|nction U|
|00001dc0| 73 65 72 4e 6f 74 69 63 | 65 28 73 74 72 69 6e 67 |serNotic|e(string|
|00001dd0| 20 4e 69 63 6b 2c 20 73 | 74 72 69 6e 67 20 54 65 | Nick, s|tring Te|
|00001de0| 78 74 29 0d 0a 7b 0d 0a | 09 6c 6f 63 61 6c 20 55 |xt)..{..|.local U|
|00001df0| 57 69 6e 64 6f 77 50 61 | 67 65 43 6f 6e 74 72 6f |WindowPa|geContro|
|00001e00| 6c 50 61 67 65 20 50 3b | 0d 0a 09 6c 6f 63 61 6c |lPage P;|...local|
|00001e10| 20 55 42 72 6f 77 73 65 | 72 49 52 43 43 68 61 6e | UBrowse|rIRCChan|
|00001e20| 6e 65 6c 50 61 67 65 20 | 43 68 61 6e 3b 0d 0a 09 |nelPage |Chan;...|
|00001e30| 6c 6f 63 61 6c 20 55 42 | 72 6f 77 73 65 72 49 52 |local UB|rowserIR|
|00001e40| 43 50 72 69 76 50 61 67 | 65 20 50 72 69 76 3b 0d |CPrivPag|e Priv;.|
|00001e50| 0a 0d 0a 09 66 6f 72 28 | 50 20 3d 20 50 61 67 65 |....for(|P = Page|
|00001e60| 50 61 72 65 6e 74 2e 46 | 69 72 73 74 50 61 67 65 |Parent.F|irstPage|
|00001e70| 28 29 3b 20 50 20 21 3d | 20 4e 6f 6e 65 3b 20 50 |(); P !=| None; P|
|00001e80| 20 3d 20 50 2e 4e 65 78 | 74 50 61 67 65 28 29 29 | = P.Nex|tPage())|
|00001e90| 0d 0a 09 7b 0d 0a 09 09 | 43 68 61 6e 20 3d 20 55 |...{....|Chan = U|
|00001ea0| 42 72 6f 77 73 65 72 49 | 52 43 43 68 61 6e 6e 65 |BrowserI|RCChanne|
|00001eb0| 6c 50 61 67 65 28 50 2e | 50 61 67 65 29 3b 0d 0a |lPage(P.|Page);..|
|00001ec0| 09 09 69 66 28 43 68 61 | 6e 20 21 3d 20 4e 6f 6e |..if(Cha|n != Non|
|00001ed0| 65 20 26 26 20 43 68 61 | 6e 2e 55 73 65 72 4c 69 |e && Cha|n.UserLi|
|00001ee0| 73 74 2e 46 69 6e 64 4e | 69 63 6b 28 4e 69 63 6b |st.FindN|ick(Nick|
|00001ef0| 29 20 21 3d 20 4e 6f 6e | 65 29 0d 0a 09 09 09 43 |) != Non|e).....C|
|00001f00| 68 61 6e 2e 55 73 65 72 | 4e 6f 74 69 63 65 28 4e |han.User|Notice(N|
|00001f10| 69 63 6b 2c 20 54 65 78 | 74 29 3b 0d 0a 0d 0a 09 |ick, Tex|t);.....|
|00001f20| 09 50 72 69 76 20 3d 20 | 55 42 72 6f 77 73 65 72 |.Priv = |UBrowser|
|00001f30| 49 52 43 50 72 69 76 50 | 61 67 65 28 50 2e 50 61 |IRCPrivP|age(P.Pa|
|00001f40| 67 65 29 3b 0d 0a 09 09 | 69 66 28 50 72 69 76 20 |ge);....|if(Priv |
|00001f50| 21 3d 20 4e 6f 6e 65 20 | 26 26 20 50 72 69 76 2e |!= None |&& Priv.|
|00001f60| 50 72 69 76 4e 69 63 6b | 20 3d 3d 20 4e 69 63 6b |PrivNick| == Nick|
|00001f70| 29 0d 0a 09 09 09 50 72 | 69 76 2e 55 73 65 72 4e |).....Pr|iv.UserN|
|00001f80| 6f 74 69 63 65 28 4e 69 | 63 6b 2c 20 54 65 78 74 |otice(Ni|ck, Text|
|00001f90| 29 3b 0d 0a 09 7d 0d 0a | 7d 0d 0a 0d 0a 66 75 6e |);...}..|}....fun|
|00001fa0| 63 74 69 6f 6e 20 43 68 | 61 6e 67 65 4d 6f 64 65 |ction Ch|angeMode|
|00001fb0| 28 73 74 72 69 6e 67 20 | 43 68 61 6e 6e 65 6c 2c |(string |Channel,|
|00001fc0| 20 73 74 72 69 6e 67 20 | 4e 69 63 6b 2c 20 73 74 | string |Nick, st|
|00001fd0| 72 69 6e 67 20 4d 6f 64 | 65 29 0d 0a 7b 0d 0a 09 |ring Mod|e)..{...|
|00001fe0| 6c 6f 63 61 6c 20 55 42 | 72 6f 77 73 65 72 49 52 |local UB|rowserIR|
|00001ff0| 43 43 68 61 6e 6e 65 6c | 50 61 67 65 20 57 3b 0d |CChannel|Page W;.|
|00002000| 0a 09 57 20 3d 20 46 69 | 6e 64 43 68 61 6e 6e 65 |..W = Fi|ndChanne|
|00002010| 6c 57 69 6e 64 6f 77 28 | 43 68 61 6e 6e 65 6c 29 |lWindow(|Channel)|
|00002020| 3b 0d 0a 09 69 66 28 57 | 20 21 3d 20 4e 6f 6e 65 |;...if(W| != None|
|00002030| 29 0d 0a 09 09 57 2e 43 | 68 61 6e 67 65 4d 6f 64 |)....W.C|hangeMod|
|00002040| 65 28 4e 69 63 6b 2c 20 | 4d 6f 64 65 29 3b 0d 0a |e(Nick, |Mode);..|
|00002050| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 43 68 |}....fun|ction Ch|
|00002060| 61 6e 67 65 4f 70 28 73 | 74 72 69 6e 67 20 43 68 |angeOp(s|tring Ch|
|00002070| 61 6e 6e 65 6c 2c 20 73 | 74 72 69 6e 67 20 4e 69 |annel, s|tring Ni|
|00002080| 63 6b 2c 20 62 6f 6f 6c | 20 62 4f 70 29 0d 0a 7b |ck, bool| bOp)..{|
|00002090| 0d 0a 09 6c 6f 63 61 6c | 20 55 42 72 6f 77 73 65 |...local| UBrowse|
|000020a0| 72 49 52 43 43 68 61 6e | 6e 65 6c 50 61 67 65 20 |rIRCChan|nelPage |
|000020b0| 57 3b 0d 0a 09 57 20 3d | 20 46 69 6e 64 43 68 61 |W;...W =| FindCha|
|000020c0| 6e 6e 65 6c 57 69 6e 64 | 6f 77 28 43 68 61 6e 6e |nnelWind|ow(Chann|
|000020d0| 65 6c 29 3b 0d 0a 09 69 | 66 28 57 20 21 3d 20 4e |el);...i|f(W != N|
|000020e0| 6f 6e 65 29 0d 0a 09 09 | 57 2e 43 68 61 6e 67 65 |one)....|W.Change|
|000020f0| 4f 70 28 4e 69 63 6b 2c | 20 62 4f 70 29 3b 0d 0a |Op(Nick,| bOp);..|
|00002100| 7d 0d 0a 0d 0a 66 75 6e | 63 74 69 6f 6e 20 43 68 |}....fun|ction Ch|
|00002110| 61 6e 67 65 56 6f 69 63 | 65 28 73 74 72 69 6e 67 |angeVoic|e(string|
|00002120| 20 43 68 61 6e 6e 65 6c | 2c 20 73 74 72 69 6e 67 | Channel|, string|
|00002130| 20 4e 69 63 6b 2c 20 62 | 6f 6f 6c 20 62 56 6f 69 | Nick, b|ool bVoi|
|00002140| 63 65 29 0d 0a 7b 0d 0a | 09 6c 6f 63 61 6c 20 55 |ce)..{..|.local U|
|00002150| 42 72 6f 77 73 65 72 49 | 52 43 43 68 61 6e 6e 65 |BrowserI|RCChanne|
|00002160| 6c 50 61 67 65 20 57 3b | 0d 0a 09 57 20 3d 20 46 |lPage W;|...W = F|
|00002170| 69 6e 64 43 68 61 6e 6e | 65 6c 57 69 6e 64 6f 77 |indChann|elWindow|
|00002180| 28 43 68 61 6e 6e 65 6c | 29 3b 0d 0a 09 69 66 28 |(Channel|);...if(|
|00002190| 57 20 21 3d 20 4e 6f 6e | 65 29 0d 0a 09 09 57 2e |W != Non|e)....W.|
|000021a0| 43 68 61 6e 67 65 56 6f | 69 63 65 28 4e 69 63 6b |ChangeVo|ice(Nick|
|000021b0| 2c 20 62 56 6f 69 63 65 | 29 3b 0d 0a 7d 0d 0a 0d |, bVoice|);..}...|
|000021c0| 0a 66 75 6e 63 74 69 6f | 6e 20 54 69 63 6b 28 66 |.functio|n Tick(f|
|000021d0| 6c 6f 61 74 20 44 65 6c | 74 61 29 0d 0a 7b 0d 0a |loat Del|ta)..{..|
|000021e0| 09 69 66 28 62 43 6f 6e | 6e 65 63 74 65 64 20 26 |.if(bCon|nected &|
|000021f0| 26 20 47 65 74 50 6c 61 | 79 65 72 4f 77 6e 65 72 |& GetPla|yerOwner|
|00002200| 28 29 2e 50 6c 61 79 65 | 72 52 65 70 6c 69 63 61 |().Playe|rReplica|
|00002210| 74 69 6f 6e 49 6e 66 6f | 2e 50 6c 61 79 65 72 4e |tionInfo|.PlayerN|
|00002220| 61 6d 65 20 21 3d 20 4f | 6c 64 50 6c 61 79 65 72 |ame != O|ldPlayer|
|00002230| 4e 61 6d 65 29 0d 0a 09 | 7b 0d 0a 09 09 4f 6c 64 |Name)...|{....Old|
|00002240| 50 6c 61 79 65 72 4e 61 | 6d 65 20 3d 20 47 65 74 |PlayerNa|me = Get|
|00002250| 50 6c 61 79 65 72 4f 77 | 6e 65 72 28 29 2e 50 6c |PlayerOw|ner().Pl|
|00002260| 61 79 65 72 52 65 70 6c | 69 63 61 74 69 6f 6e 49 |ayerRepl|icationI|
|00002270| 6e 66 6f 2e 50 6c 61 79 | 65 72 4e 61 6d 65 3b 0d |nfo.Play|erName;.|
|00002280| 0a 09 09 4c 69 6e 6b 2e | 53 65 74 4e 69 63 6b 28 |...Link.|SetNick(|
|00002290| 4f 6c 64 50 6c 61 79 65 | 72 4e 61 6d 65 29 3b 0d |OldPlaye|rName);.|
|000022a0| 0a 09 09 53 79 73 74 65 | 6d 54 65 78 74 28 22 53 |...Syste|mText("S|
|000022b0| 65 74 4e 69 63 6b 3a 20 | 22 24 4f 6c 64 50 6c 61 |etNick: |"$OldPla|
|000022c0| 79 65 72 4e 61 6d 65 29 | 3b 0d 0a 09 7d 0d 0a 0d |yerName)|;...}...|
|000022d0| 0a 09 53 75 70 65 72 2e | 54 69 63 6b 28 44 65 6c |..Super.|Tick(Del|
|000022e0| 74 61 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |ta);..}.|...funct|
|000022f0| 69 6f 6e 20 49 73 41 77 | 61 79 28 73 74 72 69 6e |ion IsAw|ay(strin|
|00002300| 67 20 4e 69 63 6b 2c 20 | 73 74 72 69 6e 67 20 4d |g Nick, |string M|
|00002310| 65 73 73 61 67 65 29 0d | 0a 7b 0d 0a 09 6c 6f 63 |essage).|.{...loc|
|00002320| 61 6c 20 55 42 72 6f 77 | 73 65 72 49 52 43 50 72 |al UBrow|serIRCPr|
|00002330| 69 76 50 61 67 65 20 57 | 3b 0d 0a 0d 0a 09 57 20 |ivPage W|;.....W |
|00002340| 3d 20 46 69 6e 64 50 72 | 69 76 61 74 65 57 69 6e |= FindPr|ivateWin|
|00002350| 64 6f 77 28 4e 69 63 6b | 29 3b 0d 0a 09 0d 0a 09 |dow(Nick|);......|
|00002360| 69 66 28 57 20 21 3d 20 | 4e 6f 6e 65 29 0d 0a 09 |if(W != |None)...|
|00002370| 09 57 2e 49 73 41 77 61 | 79 28 4e 69 63 6b 2c 20 |.W.IsAwa|y(Nick, |
|00002380| 4d 65 73 73 61 67 65 29 | 3b 0d 0a 09 65 6c 73 65 |Message)|;...else|
|00002390| 0d 0a 09 09 53 79 73 74 | 65 6d 54 65 78 74 28 4e |....Syst|emText(N|
|000023a0| 69 63 6b 40 49 73 41 77 | 61 79 54 65 78 74 24 22 |ick@IsAw|ayText$"|
|000023b0| 3a 20 22 24 4d 65 73 73 | 61 67 65 29 3b 0d 0a 7d |: "$Mess|age);..}|
|000023c0| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 49 52 43 |....func|tion IRC|
|000023d0| 56 69 73 69 62 6c 65 28 | 29 0d 0a 7b 0d 0a 09 69 |Visible(|)..{...i|
|000023e0| 66 28 62 41 77 61 79 29 | 0d 0a 09 7b 0d 0a 09 09 |f(bAway)|...{....|
|000023f0| 69 66 28 62 43 6f 6e 6e | 65 63 74 65 64 29 0d 0a |if(bConn|ected)..|
|00002400| 09 09 09 4c 69 6e 6b 2e | 53 65 74 41 77 61 79 28 |...Link.|SetAway(|
|00002410| 22 22 29 3b 0d 0a 09 09 | 62 41 77 61 79 20 3d 20 |"");....|bAway = |
|00002420| 46 61 6c 73 65 3b 0d 0a | 09 7d 0d 0a 7d 0d 0a 0d |False;..|.}..}...|
|00002430| 0a 66 75 6e 63 74 69 6f | 6e 20 49 52 43 43 6c 6f |.functio|n IRCClo|
|00002440| 73 65 64 28 29 0d 0a 7b | 0d 0a 09 43 68 65 63 6b |sed()..{|...Check|
|00002450| 41 77 61 79 28 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |Away();.|.}....fu|
|00002460| 6e 63 74 69 6f 6e 20 4e | 6f 74 69 66 79 41 66 74 |nction N|otifyAft|
|00002470| 65 72 4c 65 76 65 6c 43 | 68 61 6e 67 65 28 29 0d |erLevelC|hange().|
|00002480| 0a 7b 0d 0a 09 53 75 70 | 65 72 2e 4e 6f 74 69 66 |.{...Sup|er.Notif|
|00002490| 79 41 66 74 65 72 4c 65 | 76 65 6c 43 68 61 6e 67 |yAfterLe|velChang|
|000024a0| 65 28 29 3b 0d 0a 09 43 | 68 65 63 6b 41 77 61 79 |e();...C|heckAway|
|000024b0| 28 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |();..}..|..functi|
|000024c0| 6f 6e 20 43 68 65 63 6b | 41 77 61 79 28 29 0d 0a |on Check|Away()..|
|000024d0| 7b 0d 0a 09 6c 6f 63 61 | 6c 20 73 74 72 69 6e 67 |{...loca|l string|
|000024e0| 20 55 52 4c 3b 0d 0a 0d | 0a 09 69 66 28 20 62 43 | URL;...|..if( bC|
|000024f0| 6f 6e 6e 65 63 74 65 64 | 20 29 0d 0a 09 7b 0d 0a |onnected| )...{..|
|00002500| 09 09 62 41 77 61 79 20 | 3d 20 54 72 75 65 3b 0d |..bAway |= True;.|
|00002510| 0a 0d 0a 09 09 55 52 4c | 20 3d 20 47 65 74 4c 65 |.....URL| = GetLe|
|00002520| 76 65 6c 28 29 2e 47 65 | 74 41 64 64 72 65 73 73 |vel().Ge|tAddress|
|00002530| 55 52 4c 28 29 3b 0d 0a | 09 09 69 66 28 49 6e 53 |URL();..|..if(InS|
|00002540| 74 72 28 55 52 4c 2c 20 | 22 3a 22 29 20 3e 20 30 |tr(URL, |":") > 0|
|00002550| 29 0d 0a 09 09 09 4c 69 | 6e 6b 2e 53 65 74 41 77 |).....Li|nk.SetAw|
|00002560| 61 79 28 22 75 6e 72 65 | 61 6c 3a 2f 2f 22 24 55 |ay("unre|al://"$U|
|00002570| 52 4c 29 3b 0d 0a 09 09 | 65 6c 73 65 0d 0a 09 09 |RL);....|else....|
|00002580| 69 66 28 21 52 6f 6f 74 | 2e 62 57 69 6e 64 6f 77 |if(!Root|.bWindow|
|00002590| 56 69 73 69 62 6c 65 29 | 0d 0a 09 09 09 4c 69 6e |Visible)|.....Lin|
|000025a0| 6b 2e 53 65 74 41 77 61 | 79 28 22 6c 6f 63 61 6c |k.SetAwa|y("local|
|000025b0| 20 67 61 6d 65 22 29 3b | 0d 0a 09 09 65 6c 73 65 | game");|....else|
|000025c0| 0d 0a 09 09 09 4c 69 6e | 6b 2e 53 65 74 41 77 61 |.....Lin|k.SetAwa|
|000025d0| 79 28 22 69 6e 20 6d 65 | 6e 75 73 22 29 3b 0d 0a |y("in me|nus");..|
|000025e0| 09 7d 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |.}..}...|.functio|
|000025f0| 6e 20 43 54 43 50 28 73 | 74 72 69 6e 67 20 43 68 |n CTCP(s|tring Ch|
|00002600| 61 6e 6e 65 6c 2c 20 73 | 74 72 69 6e 67 20 4e 69 |annel, s|tring Ni|
|00002610| 63 6b 2c 20 73 74 72 69 | 6e 67 20 4d 65 73 73 61 |ck, stri|ng Messa|
|00002620| 67 65 29 0d 0a 7b 0d 0a | 09 69 66 28 43 68 61 6e |ge)..{..|.if(Chan|
|00002630| 6e 65 6c 20 3d 3d 20 22 | 22 20 7c 7c 20 43 68 61 |nel == "|" || Cha|
|00002640| 6e 6e 65 6c 20 3d 3d 20 | 4e 69 63 6b 4e 61 6d 65 |nnel == |NickName|
|00002650| 29 0d 0a 09 09 53 79 73 | 74 65 6d 54 65 78 74 28 |)....Sys|temText(|
|00002660| 22 5b 22 24 4e 69 63 6b | 24 22 3a 20 22 24 4d 65 |"["$Nick|$": "$Me|
|00002670| 73 73 61 67 65 24 22 5d | 22 29 3b 0d 0a 09 65 6c |ssage$"]|");...el|
|00002680| 73 65 0d 0a 09 09 53 79 | 73 74 65 6d 54 65 78 74 |se....Sy|stemText|
|00002690| 28 22 5b 22 24 4e 69 63 | 6b 24 22 3a 22 24 43 68 |("["$Nic|k$":"$Ch|
|000026a0| 61 6e 6e 65 6c 24 22 20 | 22 24 4d 65 73 73 61 67 |annel$" |"$Messag|
|000026b0| 65 24 22 5d 22 29 3b 0d | 0a 7d 0d 0a 0d 0a 00    |e$"]");.|.}..... |
+--------+-------------------------+-------------------------+--------+--------+